From b16e33a8cba35505092844aada808f7136a5f3be Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 13 Feb 2001 20:07:50 +0000 Subject: [PATCH] (occur): Stop at end of buffer. --- lisp/replace.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/replace.el b/lisp/replace.el index 2a0735cfe5a..469133db8de 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -623,7 +623,7 @@ the matching is case-sensitive." (goto-char (point-max))) (save-excursion ;; Find next match, but give up if prev match was at end of buffer. - (while (and (not (= prevpos (point-max))) + (while (and (not (eobp)) (re-search-forward regexp nil t)) (goto-char (match-beginning 0)) (beginning-of-line) -- 2.30.2